home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / TESTING / EVENT1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-21  |  719b  |  24 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Testing; simple event window
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBWIN, CRT;
  10.  
  11. var MyWindow : EventHandlerObjectType;
  12.  
  13.  
  14. begin
  15.      with MyWindow do begin
  16.           InitializeWindow (5, 5, 75, 20, 'MyWindow', DoubleBorder, FALSE, FALSE);
  17.           EnableEmbedding;
  18.           repeat
  19.                 Loop;
  20.                 Write ('Some text to show');
  21.           until IsFinished;
  22.           Intercept;
  23.      end;
  24. end.